<?xml version="1.0" encoding="utf-8"?>
<Content xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="urn:blueonionsoftware-com:bloget:runtime:data">
  <text>Here's a modified version of the CloseExceptActive macro. It closes all document windows except the active document window and other non-document windows like output, build and Start Page.

&lt;pre&gt;
    Sub CloseExceptActiveNonCode()
        'Description: Closes all editor windows except the current one and non code windows (start, output).
        Dim doc As Document
        Dim activeDoc As String
        activeDoc = ActiveDocument.FullName
&lt;/pre&gt;

&lt;pre&gt;
        For Each doc In DTE.Documents()
            If activeDoc &amp;lt;&amp;gt; doc.FullName And doc.FullName.IndexOf(".") &amp;lt;&amp;gt; -1 Then
                doc.Close(vsSaveChanges.vsSaveChangesPrompt)
            End If
        Next
    End Sub
&lt;/pre&gt;
</text>
  <last_update>2007-10-04T00:52:26.6900806Z</last_update>
  <source_title />
  <source_link />
  <comments />
  <references />
  <attachments />
</Content>